home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / basic3 / pro5 / sprial1.bas (.txt) < prev    next >
Encoding:
GW-BASIC  |  1987-06-13  |  399 b   |  22 lines
  1. 10  SCREEN 1,1
  2. 20  COLOR 9,1
  3. 30  KEY OFF
  4. 40  CT = 1
  5. 50  PSET (160,100)
  6. 60  WHILE CT < 103
  7. 70    IF CT MOD 4 = 1 THEN LINE -STEP (CT,CT),1
  8. 80    IF CT MOD 4 = 2 THEN LINE -STEP (CT,-CT),1
  9. 90    IF CT MOD 4 = 3 THEN LINE -STEP (-CT,-CT),1
  10. 100    IF CT MOD 4 = 0 THEN LINE -STEP (-CT,CT),1
  11. 110    CT = CT + 1
  12. 120  WEND
  13. 130  LINE -STEP (-3,0),1
  14. 140  PAINT (160,99),2,1
  15. 150  LINE (220,100)-(223,100),1
  16. 160  PAINT (160,99),3,1
  17. 170  LOCATE 25,1
  18. 180  INPUT "Press ENTER to continue-";ANS$
  19. 190  SCREEN 0
  20. 200  WIDTH 80
  21. 210  KEY ON
  22.